inherited fRefugoRet: TfRefugoRet
  Left = 282
  Top = 123
  Width = 768
  Height = 495
  Caption = 'Reaproveitamento Refugo'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited MMJPanel1: TMMJPanel
    Width = 760
    Height = 169
    object Label1: TLabel
      Left = 24
      Top = 11
      Width = 43
      Height = 13
      Caption = 'O.F. Det.'
      Transparent = True
    end
    object Label2: TLabel
      Left = 24
      Top = 43
      Width = 72
      Height = 13
      Caption = 'Produto/Comp.'
      Transparent = True
    end
    object Motivo: TLabel
      Left = 24
      Top = 75
      Width = 26
      Height = 13
      Caption = 'Local'
      Transparent = True
    end
    object Label5: TLabel
      Left = 24
      Top = 139
      Width = 55
      Height = 13
      Caption = 'Quantidade'
      Transparent = True
    end
    object Label3: TLabel
      Left = 241
      Top = 11
      Width = 20
      Height = 13
      Caption = 'O.F.'
      Transparent = True
    end
    object Label4: TLabel
      Left = 25
      Top = 105
      Width = 23
      Height = 13
      Caption = 'Data'
      Transparent = True
    end
    object RefOf: TEdit
      Left = 112
      Top = 10
      Width = 121
      Height = 21
      TabOrder = 0
      OnExit = RefOfExit
      OnKeyPress = FormKeyPress
    end
    object RefQtde: TJvCalcEdit
      Left = 112
      Top = 138
      Width = 121
      Height = 21
      ShowButton = False
      TabOrder = 4
      DecimalPlacesAlwaysShown = False
      OnKeyPress = FormKeyPress
    end
    object edProduto: TEdit
      Left = 240
      Top = 42
      Width = 473
      Height = 21
      Color = cl3DLight
      Enabled = False
      TabOrder = 5
    end
    object edMotivo: TEdit
      Left = 240
      Top = 74
      Width = 473
      Height = 21
      Color = cl3DLight
      Enabled = False
      TabOrder = 6
    end
    object edOf: TEdit
      Left = 266
      Top = 10
      Width = 70
      Height = 21
      Color = cl3DLight
      Enabled = False
      TabOrder = 7
    end
    object edProdOf: TEdit
      Left = 347
      Top = 10
      Width = 366
      Height = 21
      Color = cl3DLight
      Enabled = False
      TabOrder = 8
    end
    object RefProd: TComboBox
      Left = 112
      Top = 40
      Width = 122
      Height = 21
      ItemHeight = 13
      TabOrder = 1
      OnClick = RefProdExit
      OnExit = RefProdExit
      OnKeyPress = FormKeyPress
    end
    object cbLocal: TComboBox
      Left = 112
      Top = 72
      Width = 121
      Height = 21
      ItemHeight = 13
      TabOrder = 2
    end
    object Data1: TJvDateEdit
      Left = 112
      Top = 103
      Width = 122
      Height = 24
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      PopupMenu = PopupMenu1
      TabOrder = 3
      OnKeyPress = FormKeyPress
    end
  end
  inherited MMJPanel2: TMMJPanel
    Top = 417
    Width = 760
    inherited btnGravar: TBitBtn
      Left = 519
      Caption = 'F5-Gravar'
      TabOrder = 1
    end
    inherited btnIncluir: TBitBtn
      Left = 47
      TabOrder = 2
      Visible = False
    end
    inherited btnCancelar: TBitBtn
      Left = 194
      Visible = False
    end
    inherited btnExcluir: TBitBtn
      Left = 146
      TabOrder = 3
      Visible = False
    end
    inherited btnProcurar: TBitBtn
      Left = 164
      Visible = False
    end
    inherited btnSair: TBitBtn
      Left = 645
      TabOrder = 4
    end
    object BitBtn1: TBitBtn
      Left = 392
      Top = 5
      Width = 107
      Height = 42
      Hint = 'Abre a tela de Impressao de Etiquetas'
      Caption = 'Impr. Etiqueta'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 6
      OnClick = BitBtn1Click
      Glyph.Data = {
        360C0000424D360C000000000000360000002800000020000000200000000100
        180000000000000C000000000000000000000000000000000000C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C00000000101010000
        0005050500000002000005000007000009030408020304000007020302000002
        0000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C00000000101011414142525
        250000000101010503030500000700001D15161D17180500000B060702000007
        0505040404000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C00000000000000909092525254949495B5B
        5B323232242424181616140C0D3A3233726A6BAEA8A96E68691A151602000002
        0000020000090909020202040404C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C00000000000000606062222224343439A9A9AEFEFEFBFBF
        BFAAAAAA6B6B6B4E4C4C71696AA196989C9495DBD3D4FFFBFCE6E0E18D888930
        2E2E0C0A0A020000010101000000000000030303C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0000000010101080808141414313131828282E6E6E6EDEDEDECECECC6C6
        C6A8A8A8B9B9B9B1AFAF958D8E73686A726A6B8C84859E9899DED8D9F5F0F1F4
        EFF0A9A7A7424040100E0E030101040202040202020000C0C0C0C0C0C0C0C0C0
        0000000000001313132C2C2C6C6C6CDADADAF8F8F8F0F0F0F2F2F2E6E6E6BABA
        BAB0B0B0A6A6A6AFADAD423C3D524A4B6961627670717F797A8D88899F9A9BC9
        C7C7EBE9E9FFFFFFCECCCC6868680F0D0D020000080606C0C0C0C0C0C0C0C0C0
        2D2D2D292929595959C7C7C7FBFBFBF3F3F3F4F4F4E7E7E7ECECECECECECB4B4
        B4A5A5A5B5B5B5B2B0B08B85867872735A5455605B5C7B7677807E7E9391919C
        9C9CB0B0B0C7C9C9E3E3E3FDFFFF656565000000000000C0C0C0C0C0C0C0C0C0
        3F3F3FA4A4A4FFFFFFF9F9F9F6F6F6F2F2F2EBEBEBF0F0F0E5E5E5DFDFDFADAD
        ADA7A7A7A7A7A7AFADADB8B3B4B4AFB0BBB6B79A98988583837575757E7E7E8D
        8F8F999B9BA7ACAB898B8B6B706F2F3131010303000000C0C0C0C0C0C0C0C0C0
        3D3D3DD8D8D8F8F8F8F3F3F3F8F8F8EAEAEAEBEBEBE3E3E3BBBBBB7373736363
        63818181848484A3A3A3AFADADAEAEAEB2B2B2B5B7B7B6B8B8B0B5B4A0A5A48D
        9291474C4B303635B6BBBA737978242928000302000100C0C0C0C0C0C0C0C0C0
        494949CCCCCCF7F7F7F4F4F4E9E9E9E4E4E4A9A9A9717171929292C3C3C3B0B0
        B08989898383837171717575758E9090A4A6A6AFB4B3B7BCBBB7BCBBB4BAB9B9
        BFBEC4CAC99BA1A0BAC0BF878D8C222827000504000100C0C0C0C0C0C0C0C0C0
        494949C7C7C7F1F1F1EAEAEAA2A2A2777777909090D3D3D3D6D6D6D7D7D7B4B4
        B49E9E9EA5A5A59F9F9F939595808282757777747978808584A0A6A5B9BFBEBA
        C0BFB5BDBC8A9291929897757B7A242A29000100030908C0C0C0C0C0C0C0C0C0
        4A4A4ABDBDBD9898986E6E6EAAAAAADADADAE3E3E3D4D4D4D8D8D8CFCFCFE8E8
        E8E2E2E2D3D3D3B7B7B7A9ABABA9ABABA5A7A79EA3A28F94936D7372676D6C83
        8988ACB2B1878D8C9AA09F5E64632C3231000201000100C0C0C0C0C0C0C0C0C0
        4E4E4E727272B8B8B8E7E7E7DCDCDCE1E1E1D6D6D6D9D9D9D4D4D4DFDFDFF3F3
        F3DDDDDDE0E0E0ECECECE6E6E6DADADACACACAB1B3B3A6A8A8B1B6B5AEB3B290
        9594757A796368675E63627479782B302F000100000101C0C0C0C0C0C0C0C0C0
        555555D9D9D9E6E6E6E1E1E1DFDFDFDADADAD5D5D5D2D2D2CECECEEFEFEFBEBE
        BEBDBDBDBCBCBCB6B6B6D4D4D4E0E0E0E5E5E5E8E8E8E6E6E6CED0D0B9BBBBB6
        BBBAB6B8B8B3B8B79FA1A1707272353737000000040404C0C0C0C0C0C0C0C0C0
        555555E7E7E7DCDCDCE1E1E1D9D9D9D6D6D6D6D6D6CECECEF4F4F4D1D1D1C4C4
        C4EDEDEDEBEBEBE7E7E7D5D3D3BEBCBCB3B1B1BCBABACDCBCBDEDEDEE7E7E7E0
        E2E2D4D4D4D3D5D5C1C1C1808080333333000000070505C0C0C0C0C0C0C0C0C0
        5B5B5BD3D2D4E4E3E5DAD9DBD5D4D6D0CFD1CDCFD0EDEFEFCACCCCBCBEBEF1F3
        F4F1F0F2EDECEEF1F0F2ECEAEAF0EEEEEDEBEBDFDFDFCACACAB7B7B7B3B3B3BB
        BBBBCECECEDDDDDDE1DFDF918F8F312F2F020000C0C0C0C0C0C0C0C0C0C0C0C0
        605D5F928E93D7D3D9D4D2D8D5D4D8D5D6DADADDE1ABAFB09A9E9FCACECFF3F6
        FAF0F1F5EDEBF1F3F2F6EFEEF0ECEEEEE8EAEBE6E8E9E9EBECE4E6E7E8E7E9DB
        DBDBC0BEBEACAAA9D9D5D452504F020000020202C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0605C61807C829A969C919094A9AAAE999B9CACB1B0A9AEAD9499988789
        8A8C8E8FA7A6AAB9B8BAD1D1D1F0F1EFE8EAEAF4F6F7E1E3E4E6E7EBE6E8E9E4
        E3E5BAB8B8C6C2C1787473373534030303C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C06764665C595B908E8EF1EFEFF0EEEDE7E6E2BEBEB8A5A59FB2B4
        AEC3C5BFBFC0BCB1B0ACA8A5A093908C9C9A999E9C9CC2C1C3E2E4E5E1E3E4B5
        B4B6C5C3C37C7A7A393736020000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C097928FF8EFEBFFF7F0FFF7EFEBDFD5D9CDC1D0C4
        B8BEB5A8BEB4AACDC4BACFC6BDDAD2CBD6D0CBDED9D8A7A5A5AAA9ABACAEAF9F
        A1A2696969434141040201C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0978983C8B5ADD2B5ACE0BEB1DCB7A9EAC3B4FFDE
        CCFFE6D4FFE6D6FFEBDBF4E1D4E0D4C8E5DAD2DDD4D09E99984A484856555750
        5253000001C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C07F6559DCB9ABF8CDBCFACAB8F5C4AEF3C4
        AEEDC1AAE7BEA7DDBCA8DDC5B3ECDCCCE3D5C9D2C7BF8D86830A0605C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0846A5CF0CFBCFFD7C1FFD4BCFFD6BBFFDB
        BFFDDBBDF9DCBDF1D9BDF5DDC7E4CDBDC8B7AA3B2F25090000040000C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C01304008E7768F9D9C6FFDFC7FFDDC1FFDDBFFFDD
        BFF9DEBCF7E2C2F4E0C1F2DAC2F4DCCAB7A4953022160B0000C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C065564DAD9889FFE3D0FFE1CAFFE3C9FFE5C8FFE5
        C7FBE6C6F7E8C8F5E5C8F9E2CCF8E0CEB09D8E1002000D0200C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C073615ACDB7ABFFE4D3FFE5D0FFE7CEFFE9CEFFEA
        CEFFEACFFBEACFFAE9CFFDE5D1FFECDC7A675A110200090000C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C00E000077635EF6DDD3FFEADCFFEDDCFFEAD7FFE9D4FFEA
        D5FFEAD6FFEAD6FFEDDBFFEBDBEDD8C947352A100300090000C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C04E3C3D917C7AFFEAE4FFEDE2FFF1E2FFF0DFFFEEDDFFF0
        DFFFEEDFFFEDE0FFF1E4FFEEE1CDBBB03A2A230C0000C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0100000735E60D7C4C1FFF0EAFCF2E8FEF6E9FBF8EAFAF9EBFBF9
        EEFCF7EEFAF4EDFEF4EDFFF4EC9686800C00000D0303C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0442E308D7575FFF9F8FFF1EBFFFEF5FCFAEFF6FAEFF6FAEFF4F5
        ECF8F5F0FFF7F7FEF5F2F0E3E1463A38120808C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0100000785D60FFE6E6FFF9F9FFFDFBFFFFF9FFFAF1FFFFF7FFFFF9FFFB
        F8FFFDFEFFFBFFFFF5F9928486090000070000C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C07F6A6C86696C806162846566C1AAA8A89A949F9790B2ACA5C3BDB8C5B5
        B6CBB4B8CEAFB8B79BA14332360A0203C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0}
    end
  end
  object gridOf: TJvDBGrid [2]
    Left = 0
    Top = 169
    Width = 760
    Height = 248
    Align = alClient
    DataSource = dsRefugo
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    AlternateRowFontColor = clBlue
    AutoSizeColumns = True
    SelectColumnsDialogStrings.Caption = 'Select columns'
    SelectColumnsDialogStrings.OK = '&OK'
    SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
    EditControls = <>
    RowsHeight = 17
    TitleRowHeight = 17
    Columns = <
      item
        Expanded = False
        FieldName = 'ETI_CODPRO'
        Title.Caption = 'Componente'
        Width = 123
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'PRO_DESCRI'
        Title.Caption = 'Descricao'
        Width = 463
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ETI_QTDENV'
        Title.Caption = 'Quantidade'
        Width = 155
        Visible = True
      end>
  end
  inherited PopupMenu1: TPopupMenu
    inherited Gravar1: TMenuItem
      ShortCut = 116
    end
  end
  object sqlBusca: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQL.Strings = (
      'SELECT DOF_CODIOF, COF_CODPRO FROM ATS_OF, ATS_DETOF')
    SQLConnection = dm.SQLConnection1
    Left = 408
    Top = 8
  end
  object sqlRef: TSQLDataSet
    GetMetadata = False
    CommandText = 
      'SELECT KAR_CODPRO  ETI_CODPRO,  KAR_QTDMOV ETI_QTDENV, PRO_DESCR' +
      'I FROM '#13#10' F_KARDEX, F_PRODS WHERE KAR_NUMDOC = :pDOC  AND KAR_TI' +
      'PMOV =  '#39'DM'#39' AND KAR_CODPRO = PRO_CODPRO'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftUnknown
        Name = 'pDOC'
        ParamType = ptInput
      end>
    SQLConnection = dm.SQLConnection1
    Left = 200
    Top = 232
  end
  object dspRef: TDataSetProvider
    DataSet = sqlRef
    Options = [poAllowCommandText]
    Left = 240
    Top = 232
  end
  object cdsRef: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = 'pDOC'
        ParamType = ptInput
      end>
    ProviderName = 'dspRef'
    Left = 280
    Top = 232
    object cdsRefETI_CODPRO: TStringField
      FieldName = 'ETI_CODPRO'
      Size = 26
    end
    object cdsRefETI_QTDENV: TFMTBCDField
      FieldName = 'ETI_QTDENV'
      Precision = 32
      Size = 8
    end
    object cdsRefPRO_DESCRI: TStringField
      FieldName = 'PRO_DESCRI'
      Required = True
      Size = 100
    end
  end
  object dsRefugo: TDataSource
    DataSet = cdsRef
    Left = 320
    Top = 232
  end
  object sqlP: TSQLDataSet
    GetMetadata = False
    MaxBlobSize = -1
    Params = <>
    SQLConnection = dm.SQLConnection1
    Left = 48
    Top = 40
  end
  object dspP: TDataSetProvider
    DataSet = sqlP
    Options = [poAllowCommandText]
    Left = 80
    Top = 40
  end
  object cdsP: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspP'
    Left = 112
    Top = 40
  end
  object spRetorna: TSQLStoredProc
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'COFDET'
        ParamType = ptInput
      end
      item
        DataType = ftBCD
        Name = 'QTDE'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'LOCAL'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'CODPRO'
        ParamType = ptInput
      end
      item
        DataType = ftTimeStamp
        Name = 'DATMOV'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'USUARIO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'NEWETIQ'
        ParamType = ptOutput
        Size = 2000
      end>
    SQLConnection = dm.SQLConnection1
    StoredProcName = 'ATS_DEVCONS'
    Left = 256
    Top = 112
  end
  object qBusca: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQLConnection = dm.SQLConnection1
    Left = 296
    Top = 112
  end
  object SQLDataSet1: TSQLDataSet
    GetMetadata = False
    CommandText = 
      'SELECT ETI_CODETI, ETI_CODPRO, ETI_QTDENV, PRO_DESCRI FROM F_ETI' +
      'QUETAS, F_KARDEX, F_PRODS WHERE KAR_INDICE = '#39'RCONS-'#39' || ETI_COD' +
      'ETI  AND ETI_CODPRO = PRO_CODPRO  AND ETI_IMPRES = 0 ORDER BY ET' +
      'I_CODETI'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = dm.SQLConnection1
    Left = 200
    Top = 272
  end
end
